home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pcspell.arc / PC-SPELL.UNI < prev    next >
Encoding:
Text File  |  1984-10-28  |  896 b   |  21 lines
  1. 10 REM unique
  2. 20 DIM S$(W+1):OPEN DDISK$+"qwertyui" FOR INPUT AS #1
  3. 30 INPUT #1,S$:LASTWORD$=S$:POINTER=2
  4. 40 FOR X=2 TO W
  5. 50 INPUT #1,WORD$:IF WORD$=LASTWORD$ THEN 70
  6. 60 S$(POINTER)=WORD$:LASTWORD$=WORD$:POINTER=POINTER+1:LOCATE 25,38:PRINT "unique words";POINTER;
  7. 70 NEXT X:W=POINTER:RESET
  8. 80 REM spelling checker
  9. 90 OPEN DDISK$+"dictionary" FOR INPUT AS #1:A$="":OPEN DDISK$+"misspell" FOR APPEND AS #2
  10. 100 FOR X=1 TO W
  11. 110 IF S$(X)>A$ THEN IF NOT EOF(1) THEN INPUT #1,A$:GOSUB 1000:GOTO 110 ELSE RESET:END
  12. 120 IF S$(X)<A$ THEN PRINT #2,S$(X):MISSPELL=MISSPELL+1
  13. 130 IF S$(X)=A$ THEN CORRECT=CORRECT+1
  14. 140 LOCATE 25,55:PRINT "found";CORRECT;"not found";MISSPELL;:NEXT X
  15. 150 RESET
  16. 160 END
  17. 1000 IF ASC(LEFT$(A$,1))>64 OR LEFT$(A$,1)="'" THEN LASTWORD$=A$:RETURN 'not compressed
  18. 1010 SAME=ASC(LEFT$(A$,1))-48
  19. 1020 A$=LEFT$(LASTWORD$,SAME)+MID$(A$,2)
  20. 1030 LASTWORD$=A$:RETURN
  21.